home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Co-Cz / Countdown.cpt / Countdown / card_2968.txt < prev    next >
Encoding:
Text File  |  1987-12-19  |  9.8 KB  |  426 lines
  1. -- card: 2968 from stack: in
  2. -- bmap block id: 5244
  3. -- flags: 4000
  4. -- background id: 2649
  5. -- name: Setup1
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put Card field 1 of card 2 into card field CountdownText
  9.   put Card field 1 of card 3 into card field ZeroMessage
  10.   Put the time into card field TimeNow
  11. end openCard
  12.  
  13. on Idle
  14.   Put the time into card field TimeNow
  15. end Idle
  16.  
  17. on incrHour
  18.   if card field Hours > 11 then put 1 into card field Hours
  19.   else add 1 to card field Hours
  20. end incrHour
  21.  
  22. on decrHour
  23.   if card field Hours < 2 then put 12 into card field Hours
  24.   else subtract 1 from card field Hours
  25. end decrHour
  26.  
  27. on incrMinute
  28.   Set numberFormat to "00"
  29.   if card field Minutes > 58 then put 00 into card field Minutes
  30.   else add 1 to card field Minutes
  31. end incrMinute
  32.  
  33. on decrMinute
  34.   Set numberFormat to "00"
  35.   if card field Minutes < 1 then put 59 into card field Minutes
  36.   else subtract 1 from card field Minutes
  37. end decrMinute
  38.  
  39.  
  40.  
  41. -- part 4 (field)
  42. -- low flags: 01
  43. -- high flags: 0004
  44. -- rect: left=383 top=70 right=96 bottom=491
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 3
  49. -- text size: 18
  50. -- style flags: 256
  51. -- line height: 24
  52. -- part name: TimeNow
  53.  
  54.  
  55. -- part 6 (field)
  56. -- low flags: 01
  57. -- high flags: 0004
  58. -- rect: left=223 top=127 right=182 bottom=405
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 3
  63. -- text size: 18
  64. -- style flags: 256
  65. -- line height: 24
  66. -- part name: CountdownText
  67.  
  68.  
  69. -- part 7 (field)
  70. -- low flags: 01
  71. -- high flags: 0004
  72. -- rect: left=224 top=201 right=258 bottom=350
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 3
  77. -- text size: 18
  78. -- style flags: 256
  79. -- line height: 24
  80. -- part name: ZeroMessage
  81.  
  82.  
  83. -- part 8 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=28 top=124 right=186 bottom=416
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: 
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   go to card 2
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 9 (button)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=15 top=194 right=264 bottom=377
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   go to card 3
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 10 (button)
  122. -- low flags: 00
  123. -- high flags: C006
  124. -- rect: left=317 top=68 right=82 bottom=358
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: AM
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   Set hilite of card Button AM to true
  136.   Set hilite of card Button PM to false
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 11 (button)
  142. -- low flags: 00
  143. -- high flags: 8006
  144. -- rect: left=317 top=85 right=99 bottom=358
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: PM
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   Set hilite of card Button PM to true
  156.   Set hilite of card Button AM to false
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 12 (button)
  162. -- low flags: 00
  163. -- high flags: 0000
  164. -- rect: left=445 top=201 right=241 bottom=496
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 25002 / 25002
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: 
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   set scroll of card field HelpText to 0
  176.   show card field HelpText
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 13 (button)
  182. -- low flags: 00
  183. -- high flags: 0000
  184. -- rect: left=445 top=149 right=192 bottom=491
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 19678 / 19678
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: 
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   show card field InfoText
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 17 (button)
  201. -- low flags: 00
  202. -- high flags: 2000
  203. -- rect: left=233 top=95 right=113 bottom=245
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 16692 / 16692
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: 
  212. ----- HyperTalk script -----
  213. on mouseDown
  214.   incrHour
  215.   Repeat while the mouse is down
  216.     incrHour
  217.   end repeat
  218. end mouseDown
  219.  
  220.  
  221.  
  222. -- part 18 (field)
  223. -- low flags: 01
  224. -- high flags: 0000
  225. -- rect: left=225 top=69 right=92 bottom=261
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 65535
  229. -- font id: 3
  230. -- text size: 18
  231. -- style flags: 256
  232. -- line height: 24
  233. -- part name: Hours
  234.  
  235.  
  236. -- part 19 (field)
  237. -- low flags: 01
  238. -- high flags: 0000
  239. -- rect: left=263 top=69 right=93 bottom=298
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 3
  244. -- text size: 18
  245. -- style flags: 256
  246. -- line height: 24
  247. -- part name: Minutes
  248.  
  249.  
  250. -- part 24 (button)
  251. -- low flags: 00
  252. -- high flags: 2000
  253. -- rect: left=247 top=95 right=112 bottom=259
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 3584 / 3584
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: 
  262. ----- HyperTalk script -----
  263. on mouseDown
  264.   decrHour
  265.   Repeat while the mouse is down
  266.     decrHour
  267.   end repeat
  268. end mouseDown
  269.  
  270.  
  271.  
  272. -- part 27 (button)
  273. -- low flags: 00
  274. -- high flags: 2000
  275. -- rect: left=268 top=96 right=114 bottom=280
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 16692 / 16692
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: 
  284. ----- HyperTalk script -----
  285. on mouseDown
  286.   incrMinute
  287.   Repeat while the mouse is down
  288.     incrMinute
  289.   end repeat
  290. end mouseDown
  291.  
  292.  
  293.  
  294. -- part 29 (button)
  295. -- low flags: 00
  296. -- high flags: 2000
  297. -- rect: left=282 top=96 right=113 bottom=294
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 3584 / 3584
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: 
  306. ----- HyperTalk script -----
  307. on mouseDown
  308.   decrMinute
  309.   Repeat while the mouse is down
  310.     decrMinute
  311.   end repeat
  312. end mouseDown
  313.  
  314.  
  315.  
  316. -- part 15 (field)
  317. -- low flags: 81
  318. -- high flags: 2007
  319. -- rect: left=8 top=56 right=273 bottom=501
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 0
  323. -- font id: 3
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: HelpText
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   hide card field HelpText
  331. end mouseUp
  332.  
  333.  
  334.  
  335. -- part 14 (field)
  336. -- low flags: 81
  337. -- high flags: 0004
  338. -- rect: left=8 top=56 right=274 bottom=501
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 2
  343. -- text size: 18
  344. -- style flags: 0
  345. -- line height: 24
  346. -- part name: InfoText
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   hide card field InfoText
  350. end mouseUp
  351.  
  352.  
  353.  
  354. -- part contents for card part 4
  355. ----- text -----
  356. 5:50 PM
  357.  
  358. -- part contents for card part 6
  359. ----- text -----
  360. Countdown to 1988....
  361.  
  362. -- part contents for card part 7
  363. ----- text -----
  364. HAPPY 1988!
  365.  
  366. -- part contents for card part 14
  367. ----- text -----
  368.  
  369. ≈∏ Chris' Countdown Clock ≈∏
  370.  
  371. ¬©1987 By Christopher E. Daley
  372.  
  373. GEnie: C.Daley
  374.  
  375. Freeware --- Have Fun!
  376.  
  377. -- part contents for card part 15
  378. ----- text -----
  379.  
  380.                 C H R I S '    C O U N T D O W N    C L O C K    H E L P 
  381.                 =============================================
  382.  
  383.  
  384.   This stack was originally created for a New Years Eve Party I will be going to this December 31st, 1987.   We are having a large group (about 120 people) and needed a common countdown clock that everyone would yell "Happy New Year!" at the same time.  This is the result ....
  385.  
  386. FIELDS:
  387.  
  388. ‚Ä¢ Time of Zero Point:  This field identifies when the 'clock' will "strike zero".  Just like your digital watch, if set to "12:00" AM, it will "strike zero" at 12 midnight.
  389.  
  390. ‚Ä¢ Countdown Text:  The text in this field will be displayed on the screen while the 'clock' is counting down.  
  391.  
  392. ‚Ä¢ Time Zero Message:  This text will be displayed when the 'clock' 
  393. "strikes zero".
  394.  
  395. BUTTONS:
  396.  
  397. ‚Ä¢ TEST:  Clicking this button will display a few seconds of each of the countdown screens.  This allows you to see how the clock will look when it it running.  When complete, press the mouse button to return to this card.
  398.  
  399. ‚Ä¢ DO IT! :  Clicking this button will start the Countdown Clock.  After the
  400. 'clock' has started, you MUST press the mouse button to stop the clock  display and return to this card.  You can return at any time.
  401.  
  402.  
  403. =====================  ADVANCED TOPICS  ======================
  404.  
  405. ‚Ä¢ COUNTDOWN CLOCK BACKGROUND:  The countdown clock background is stored in Background 2.  If you want to change the way the background looks, update Background 2.  Use the test button to make sure everything looks good.
  406.  
  407. ‚Ä¢ TEXT FONT AND ATTRIBUTES:  The clock's field attributes (font, size, bold, outline, shadow, etc.) are set from cards #2 (the Countdown Text card) and 3 (the Time Zero Message).  The field attributes will be copied to the "clock" screens.  You must TEST the clock after changing the field parameters to make sure everything is displayed on the screen correctly.  The "TimeLeft" field on card 4 may also be modified, if needed.
  408.  
  409. ‚Ä¢ SOUND:  With 120 screeming friends in the same room as the Mac, no additional sound was needed.  You are welcome to add it to the stack script if you wish.
  410.  
  411.  
  412. ==> I hope you have as much fun using this clock as I had making it!  <==
  413.  
  414.                 Chris Daley                                GEnie:  C.Daley
  415.                 339 S. 11th Street #5
  416.                 San Jose, CA 95112
  417.  
  418. .
  419.  
  420. -- part contents for card part 18
  421. ----- text -----
  422. 12
  423.  
  424. -- part contents for card part 19
  425. ----- text -----
  426. 00